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; Version: *v04-000' 


—PPARARABRAAAAAAALALALALALALALARALAA LEELA SALES SERRE SEER RARER REESE S RELA RAE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copteD 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE gpd ld NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faansteaneee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE gt ore IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oompokat itn. NOT BE CONSTRUED AS A COMMITMENT BY DiGl TAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PARAAAAAALASLALALAEALELAELALALLALELELESEE SELES ESE EEE EEE SE SESE EERE REAR EERE ERE O ES 
-MACRO NPADFS$ 
: NPARSE function code definitions 


NPAS_IMAGE = 0 
NPA$S_WORD = 1 


NPA$_LOOK = 
NPAS_ “EXT IV = 10 


> NPARSE matching codes 


NPAS_EXIT = 0 ; Done 
NPAS_FAIL = =1 : Fail the parse 
NPAS_ADVANCE = 1 3; Advance pointers 


NPARSE flag bit definitions 


= 
s = *x02 
ASM“ACTION = “X04 
NPASM” STATE = *x0 
NPASM~MASK : 
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NPASM_MSKADR = = 

NPASM"OFFSET == 

WPASH. LAST = 
-ENDM = NPADFS 


“MACRO INscs STTBL ,DEBUG 
-PSECT NPASSTATE,NOWRT,NOEXE BYTE 


lf PREETI CAL <DEBUG> , <$DEBUG> 
-MACRO DBGTP 


aX28 
X40 
“18000 


STTBL:: 


«NLIST 


-E we) 
- IF _FALSE 
“PACRO DBGTPS 


FLGS$$ = -1 
NXTS$$$ = 0 
»PSECT 
-ENDM = =IMS 
MACRO FIELD 
LNPASST ATE 
FLOSS = FLGS$$!NPASM_LAST 


RANS 
IF NOT_BLANK <LABEL> 
LABEL: 


FLGSss = -1 
.ENDM = FIELDS 


-MACRO NTRANS 
-PSECT NPASSTATE 


IF EQUAL FLGS$$$+1 
FLGSS$$ = 0 

MEX 

ENDC 
TYPSSS 

.WORD FLGSS$$ 

vIF NOT_EQUAL FLGSSSENPASM_EXT 
EXTSSS 

-ENDC 

IF NOT_EQUAL FLGSSSENPASM_PARAM 
PRNSSS 

“IF NOT_EQUAL FLGSSSENPASM_ACTION 
ACTS$$ 

vIF NOT_EQUAL FLGSSSENPASM_MASK 
BITS$$ 

~ENDC 

vIF NOT_EQUAL FLGSSSENPASM_STATE 
STASSS 


o IF FALSE 
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IF EQUAL FLGSSSENPASM_LAST 
IF EQUAL 
-ERROR ; BAD DEFAULT TRANSITION 
-ENDC 
-ENDC 
-ENDC 
FLGSS$ = 8 
NXTS$$$ = 
-ENDM TRANS 


MACRO ITRANS,LABEL 1 »MASK, zADDR PARAM 
FLGS$$ = FLOSS: NPASM_ PARAM 
MACRO PRMS$SS 

RESS PARAM 
“ENDM  PRMSSS 
ENDC 


IF <ACTION> 
FLosss = NELSSESINPASH ACTION 


“A DRESS ACTION 
“ENR ACTSS$ 


cIF 
FLGsss “nce tease MASK! NPASH _MSKADR 
“ERROR ; MASK ADDRESS NOT PRESENT 


-ENDC 
ry BITS$$ 


IF <LABEL> 
FLGSS$ = NPLOSSS|NPASN. STATE 
CRO STAS$SS$ 


“ADDRESS LABEL 
“ENDM STASSS 


.ENDM itr 
.MACRO S$IMAGE,SIZE,LABEL,ACTION,MASK,ADDR,PARAM 
.P NPASSTATE 


NOM T$$$ 
FLGSS$ - tLGSSS!NPASH_E 
IT RANS LABEL ACTION Mack, ADDR, PARAM 
.ENDM GE 
“MACRO $WORD, VALUE LABEL, ACTION, MASK ADDR, PARAM 
<Psect NPASST 
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DBGTPS 
‘one TYP$$$ 


-ENDM TYPSSS 
-MACRO EXTSSS$ 

“ADDR ss VALU 
END EXT 


FLosss = FLGSSS!NPASM_E 
sPsect LABEL ACTION, MASK, ADDR,PARAM 


-ENDM $WO 
-MACRO SRE asi eACTION, MASK ADDR ,PARAM 


NTR 

DBGT ‘es 

-MACRO TYPSSS 
WOR 


ftosss = FLG$$$!NPASM_E 

TRANS LABEL ACTION, Mak. ADDR,PARAM 

.ENDM $BYTE 

-MACRO $EOM,DUMMY,LABEL,ACTION,MASK,ADDR,PARAM 
.PSECT NPASSTATE 


-MACRO TYPSSS$ 
-WORD NPAS_EOM 


-ENDM = TYPSS$ 
ITRANS LABEL,ACTION,MASK,ADDR,PARAM 


~PSECT 

.ENDM = SEOM 

“MACRO $MASK BITMSK LABEL, ACTION, MASK, ADDR, PARAM 
gPsect NPASSTATE 


DBGTPS 
~-MACRO TYPSSS 
-WORD NPAS MASK 


-ENDM = TYPSS$ 
eMACRO EXTSS$ 
-LONG BI TASK 


-ENDM EXTSSS 
fLosss = FLGSS$$!NPASM _E 
IT ae LABEL ACTION. RASK, ADDR, PARAM 


.ENOM = SMASK 
"MACRO SSBEXP.RIN. ABEL ACTION, MASK, ADDR, PARAM 
.PSECT. NPASSTATE 
TRANS 
DBGTPS 
.MACRO TYPS$S$ 
NPA$_SBEXP 


. D 
-ENDM = TYPS$S$ 
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-MACRO_ EXTSSS 
“BOR ESS RTN 


EXTSS$ 
FLosss = FLGSSS!NPASM_E 
Poet LABEL ACTION, MASK, ADDR , PARAM 


.ENDM © $SBEXP 

“MACRO S$NULL, DUMMY LABEL, ACTION, MASK, ADDR, PARAM 
aPsect NPASST 

DBGTP$ 

MA TYPS$$ 

WORD NPAS NULL 
ITRANS LABEL, ACTION, MASK,ADDR,PARAM 

~ENDM 


$NULL 
“MACRO $LOOK VALUE LABEL ACTION, MASK, ADDR, PARAM 
gPsect NP PASSTATE 


-MACRO TYPSSS 


NOT 'on <VALUE> 


“ENDM = EXTS$$ 
FLGSSs = FLGS$$!NPASM_EXT 
TRANS LABEL ACTION, MASK, ADDR, PARAM 


-ENDM = $LOOK 
- MACRO <PSEcT Fe eee ACTION,MASK ,ADDR,PARAM 


Dect P$ 

MACRO TYPSS$ 

-WORD NPAS$_EXTZV 

-ENDM © TYPSS$ 

LISTS FLD 
FLcsss z FL GS$$!NPASM_E 

ITRANS LABEL ACTION Mack. ADDR,PARAM 


.ENDM =. SEXTZV 
-MACRO LISTS VAL POS SIZ.FLG 
-MACRO EXTSS$ 
cIF NOT_BLANK VAL 
Ore VAL 3; Field value 
- ERROR 3 SEXTZV - FIELD VALUE NOT SPECIFIED 
“IF NOT _BLANK POS 
Tease 3; Field position 
SERROR ; SEXTZV - FIELD POSITION NOT SPECIFIED 


-ENDM 
-MACRO 


-ENDM 
-MACRO 


-ENDM 
-MACRO 


NPAMAC .MAR; 1 
eENDC 
olf NOT -BLANK $12 
she siz~ 3; Field size 


ALSE 
“ERROR ; SEXTZV - FIELD SIZE NOT SPECIFIED 
lf NOT _BLANK FLG 
. gs 


-BYTE : No flags 

ENDC 

-ENDK EXTS$$ 

SERROR,ERR LABEL ACTION, MASK, ADDR,PARAM 
.PSECT NPASSTATE 


NTRANS 

DBGTP$ 

.MACRO TYPSSS 
“WORD NPA$_ERROR 
“ENDM = TYPSS$ 
“MACRO EXTSSS 

[LONG ERR 

“ENDM = EXTS$$ 

FLGSS$$ = FLGS$$$!NPASM_E 

TRAN $ NPAS SPRL ACTION MASK, ADDR, PARAM 
SERROR 
SMATCH NBR LABEL ACTION, MASK, ADDR, PARAM 

NPASSTATE 


-MACRO TYPSSS 
“ NPA$_MATCH 
YPS$$ 
-MACRO EXTSSS$ 
NBR 


a 

m 
eose 
ODzBo 

~ 


NOM EXTSS$$ 
FLGS$$ = FLGS$$!NPASM _E 
ITRANS LABEL SACTION-RASK, ADDR, PARAM 
»PSECT 
SMATCH 


SNEXT 
NXTS$$ = -1 
NTRANS 


DBGTPS 
FLGS$$ = -1 
SNEXT 
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